VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmValidations 
   Caption         =   "Validation Summary"
   ClientHeight    =   17400
   ClientLeft      =   -38400
   ClientTop       =   -7920
   ClientWidth     =   30000
   OleObjectBlob   =   "frmValidations.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmValidations"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written by Jalisa Greene
'Last Modified by Jalisa Greene
'Last Updated 6/9/2014'


Option Explicit   '**all variables must be declared**'
Public LocID As Integer
Public rowNum As Integer

Private Sub btnClose_Click()
'**ACTION SUB THAT RUNS WHEN THE USER CLICKS CLOSE BUTTON**'
    Unload frmValidations
    ThisWorkbook.Save
    
End Sub

Private Sub btnSave_Click()
    '**SAVE BUTTON ONLY SAVES DATA IN THE TOP CELLS, ALL OTHER DATA AUTO-SAVES**'
    Worksheets("SR Data").Range("B2") = txtReportDate
    Worksheets("SR Data").Range("B5") = txtInvoiceNums
    Worksheets("SR Data").Range("B6") = txtSavingsSource
End Sub

Private Sub UserForm_Initialize()
'**THIS SUB IS CALLED WHEN THE USER OPENS THE FORM**'

    '**ADD LOCATIONS TO LISTBOX FOR SELECTION
    Dim loc As Range
    For Each loc In Worksheets("INV").Range("locations")
        If loc.Value <> "" Then lstLocations.AddItem (loc.Value)
    Next
    
    '**ADD CHARGEBASIS DROPDOWN VALUES**
    For Each loc In Worksheets("Pick Lists").Range("K3:K10")
        cmb1Basis.AddItem (loc.Value)
        cmb2Basis.AddItem (loc.Value)
        cmb3Basis.AddItem (loc.Value)
        cmb4Basis.AddItem (loc.Value)
        cmb5basis.AddItem (loc.Value)
        cmb6Basis.AddItem (loc.Value)
        cmb7Basis.AddItem (loc.Value)
        cmb8Basis.AddItem (loc.Value)
        cmb9Basis.AddItem (loc.Value)
        cmb10Basis.AddItem (loc.Value)
    Next
    
    '**INSERT TOP SUMMARY INFORMATION**'
    txtClientName.Value = Worksheets("SR Data").Range("B1")
    txtReportDate.Value = Worksheets("SR Data").Range("B2")
    txtInvoiceNums.Value = Worksheets("SR Data").Range("B5")
    txtSavingsSource.Value = Worksheets("SR Data").Range("B6")
    txtSavingsAmount.Value = Worksheets("SR Data").Range("B7")
End Sub

Private Sub lstLocations_Change()
    Dim intIndex As Integer
    Dim intCount As Integer
     
    '**FIND AND COUNT SELECTED ITEMS**'
    With lstLocations
        For intIndex = 0 To .ListCount - 1
            If .Selected(intIndex) Then
                intCount = intCount + 1
                LocID = .List(intIndex)
            End If
        Next
    End With
    
    '**IF WE ONLY SELECTED ONE LOCATION THEN MATCH THE ROW NUMBER AND SHOW THE DATA**'
    '**ELSE GIVE ERROR MESSAGE TO ONLY SELECT ONE**'
    If intCount = 1 Then
        rowNum = WorksheetFunction.Match(LocID, Worksheets("SR Data").Range("A9:A100"), 0) + 8
        Call InsertData
    Else:
        MsgBox ("Please only select one location.")
    End If
End Sub

Private Sub InsertData()
    '**MAIN PROGRAM RUNNER**'
    
    Call InsertVendors
    Call InsertAcctNums
    Call InsertCharges
    Call InsertBasis
    Call InsertQuantity
    Call InsertOldSpend
    Call InsertOldRates
    Call InsertNewSpend
    Call InsertNewRates
    Call InsertSubtotals
End Sub

Private Sub txt1Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("F" & rowNum) = txt1Vendor.Value
End Sub
Private Sub txt2Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("U" & rowNum) = txt2Vendor.Value
End Sub
Private Sub txt3Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AH" & rowNum) = txt3Vendor.Value
End Sub
Private Sub txt4Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AU" & rowNum) = txt4Vendor.Value
End Sub
Private Sub txt5Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BH" & rowNum) = txt5Vendor.Value
End Sub
Private Sub txt6Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BU" & rowNum) = txt6Vendor.Value
End Sub
Private Sub txt7Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CH" & rowNum) = txt7Vendor.Value
End Sub
Private Sub txt8Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CU" & rowNum) = txt8Vendor.Value
End Sub
Private Sub txt9Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DH" & rowNum) = txt9Vendor.Value
End Sub
Private Sub txt10Vendor_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE VENDOR, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DU" & rowNum) = txt10Vendor.Value
End Sub

Private Sub InsertVendors()
'**INSERT VENDOR NAMES**
    txt1Vendor.Value = Worksheets("SR Data").Range("F" & rowNum).Value
    txt2Vendor.Value = Worksheets("SR Data").Range("U" & rowNum).Value
    txt3Vendor.Value = Worksheets("SR Data").Range("AH" & rowNum).Value
    txt4Vendor.Value = Worksheets("SR Data").Range("AU" & rowNum).Value
    txt5Vendor.Value = Worksheets("SR Data").Range("BH" & rowNum).Value
    txt6Vendor.Value = Worksheets("SR Data").Range("BU" & rowNum).Value
    txt7Vendor.Value = Worksheets("SR Data").Range("CH" & rowNum).Value
    txt8Vendor.Value = Worksheets("SR Data").Range("CU" & rowNum).Value
    txt9Vendor.Value = Worksheets("SR Data").Range("DH" & rowNum).Value
    txt10Vendor.Value = Worksheets("SR Data").Range("DU" & rowNum).Value
End Sub

Private Sub txt1Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("G" & rowNum) = txt1Account.Value
End Sub
Private Sub txt2Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("V" & rowNum) = txt2Account.Value
End Sub
Private Sub txt3Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("AI" & rowNum) = txt3Account.Value
End Sub
Private Sub txt4Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("AV" & rowNum) = txt4Account.Value
End Sub
Private Sub txt5Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("BI" & rowNum) = txt5Account.Value
End Sub
Private Sub txt6Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("BV" & rowNum) = txt6Account.Value
End Sub
Private Sub txt7Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("CI" & rowNum) = txt7Account.Value
End Sub
Private Sub txt8Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("CV" & rowNum) = txt8Account.Value
End Sub
Private Sub txt9Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("DI" & rowNum) = txt9Account.Value
End Sub
Private Sub txt10Account_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE ACCT NUMBER, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'
l
    Worksheets("SR Data").Range("DV" & rowNum) = txt10Account.Value
End Sub

Private Sub InsertAcctNums()
'**INSERT ACCOUNT NUMBERS**'
    txt1Account.Value = Worksheets("SR Data").Range("G" & rowNum).Value
    txt2Account.Value = Worksheets("SR Data").Range("V" & rowNum).Value
    txt3Account.Value = Worksheets("SR Data").Range("AI" & rowNum).Value
    txt4Account.Value = Worksheets("SR Data").Range("AV" & rowNum).Value
    txt5Account.Value = Worksheets("SR Data").Range("BI" & rowNum).Value
    txt6Account.Value = Worksheets("SR Data").Range("BV" & rowNum).Value
    txt7Account.Value = Worksheets("SR Data").Range("CI" & rowNum).Value
    txt8Account.Value = Worksheets("SR Data").Range("CV" & rowNum).Value
    txt9Account.Value = Worksheets("SR Data").Range("DI" & rowNum).Value
    txt10Account.Value = Worksheets("SR Data").Range("DV" & rowNum).Value
End Sub

Private Sub txt1Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("H" & rowNum) = txt1Charge.Value
End Sub
Private Sub txt2Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("W" & rowNum) = txt2Charge.Value
End Sub
Private Sub txt3Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AJ" & rowNum) = txt3Charge.Value
End Sub
Private Sub txt4Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AW" & rowNum) = txt4Charge.Value
End Sub
Private Sub txt5Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BJ" & rowNum) = txt5Charge.Value
End Sub
Private Sub txt6Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BW" & rowNum) = txt6Charge.Value
End Sub
Private Sub txt7Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CJ" & rowNum) = txt7Charge.Value
End Sub
Private Sub txt8Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CW" & rowNum) = txt8Charge.Value
End Sub
Private Sub txt9Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DJ" & rowNum) = txt9Charge.Value
End Sub
Private Sub txt10Charge_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DW" & rowNum) = txt10Charge.Value
End Sub

Private Sub InsertCharges()
'**INSERT IN THE TEXT FOR THE CHARGES**'
    txt1Charge.Value = Worksheets("SR Data").Range("H" & rowNum).Value
    txt2Charge.Value = Worksheets("SR Data").Range("W" & rowNum).Value
    txt3Charge.Value = Worksheets("SR Data").Range("AJ" & rowNum).Value
    txt4Charge.Value = Worksheets("SR Data").Range("AW" & rowNum).Value
    txt5Charge.Value = Worksheets("SR Data").Range("BJ" & rowNum).Value
    txt6Charge.Value = Worksheets("SR Data").Range("BW" & rowNum).Value
    txt7Charge.Value = Worksheets("SR Data").Range("CJ" & rowNum).Value
    txt8Charge.Value = Worksheets("SR Data").Range("CW" & rowNum).Value
    txt9Charge.Value = Worksheets("SR Data").Range("DJ" & rowNum).Value
    txt10Charge.Value = Worksheets("SR Data").Range("DW" & rowNum).Value
End Sub

Private Sub cmb1Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("I" & rowNum) = cmb1Basis.Value
End Sub
Private Sub cmb2Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("X" & rowNum) = cmb2Basis.Value
End Sub
Private Sub cmb3Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AK" & rowNum) = cmb3Basis.Value
End Sub
Private Sub cmb4Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AX" & rowNum) = cmb4Basis.Value
End Sub
Private Sub cmb5Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BK" & rowNum) = cmb5basis.Value
End Sub
Private Sub cmb6Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BX" & rowNum) = cmb6Basis.Value
End Sub
Private Sub cmb7Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CK" & rowNum) = cmb7Basis.Value
End Sub
Private Sub cmb8Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CX" & rowNum) = cmb8Basis.Value
End Sub
Private Sub cmb9Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DK" & rowNum) = cmb9Basis.Value
End Sub
Private Sub cmb10Basis_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE CHARGE BASIS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DX" & rowNum) = cmb10Basis.Value
End Sub

Private Sub InsertBasis()
'**INSERT THE CHARGE BASIS**'
    cmb1Basis.Value = Worksheets("SR Data").Range("I" & rowNum).Value
    cmb2Basis.Value = Worksheets("SR Data").Range("X" & rowNum).Value
    cmb3Basis.Value = Worksheets("SR Data").Range("AK" & rowNum).Value
    cmb4Basis.Value = Worksheets("SR Data").Range("AX" & rowNum).Value
    cmb5basis.Value = Worksheets("SR Data").Range("BK" & rowNum).Value
    cmb6Basis.Value = Worksheets("SR Data").Range("BX" & rowNum).Value
    cmb7Basis.Value = Worksheets("SR Data").Range("CK" & rowNum).Value
    cmb8Basis.Value = Worksheets("SR Data").Range("CX" & rowNum).Value
    cmb9Basis.Value = Worksheets("SR Data").Range("DK" & rowNum).Value
    cmb10Basis.Value = Worksheets("SR Data").Range("DX" & rowNum).Value
End Sub

Private Sub txt1Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("J" & rowNum) = txt1Quan.Value
End Sub
Private Sub txt2Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("Y" & rowNum) = txt2Quan.Value
End Sub
Private Sub txt3Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AL" & rowNum) = txt3Quan.Value
End Sub
Private Sub txt4Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AY" & rowNum) = txt4Quan.Value
End Sub
Private Sub txt5Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BL" & rowNum) = txt5Quan.Value
End Sub
Private Sub txt6Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BY" & rowNum) = txt6Quan.Value
End Sub
Private Sub txt7Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CL" & rowNum) = txt7Quan.Value
End Sub
Private Sub txt8Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CY" & rowNum) = txt8Quan.Value
End Sub
Private Sub txt9Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DL" & rowNum) = txt9Quan.Value
End Sub
Private Sub txt10Quan_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE QUANTITY, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DY" & rowNum) = txt10Quan.Value
End Sub

Private Sub InsertQuantity()
'**INSERT THE SAVED QUANTITIES**
    txt1Quan.Value = Worksheets("SR Data").Range("J" & rowNum).Value
    txt2Quan.Value = Worksheets("SR Data").Range("Y" & rowNum).Value
    txt3Quan.Value = Worksheets("SR Data").Range("AL" & rowNum).Value
    txt4Quan.Value = Worksheets("SR Data").Range("AY" & rowNum).Value
    txt5Quan.Value = Worksheets("SR Data").Range("BL" & rowNum).Value
    txt6Quan.Value = Worksheets("SR Data").Range("BY" & rowNum).Value
    txt7Quan.Value = Worksheets("SR Data").Range("CL" & rowNum).Value
    txt8Quan.Value = Worksheets("SR Data").Range("CY" & rowNum).Value
    txt9Quan.Value = Worksheets("SR Data").Range("DL" & rowNum).Value
    txt10Quan.Value = Worksheets("SR Data").Range("DY" & rowNum).Value
End Sub

Private Sub txt1OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("K" & rowNum) = txt1OldSpend.Value
    txt1OldRate.Value = Worksheets("SR Data").Range("M" & rowNum).Value
    txt1Total.Value = Worksheets("SR Data").Range("Q" & rowNum).Value
End Sub
Private Sub txt2OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("Z" & rowNum) = txt2OldSpend.Value
    txt2OldRate.Value = Worksheets("SR Data").Range("AB" & rowNum).Value
    txt2Total.Value = Worksheets("SR Data").Range("AF" & rowNum).Value
End Sub
Private Sub txt3OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AM" & rowNum) = txt3OldSpend.Value
    txt3OldRate.Value = Worksheets("SR Data").Range("AO" & rowNum).Value
    txt3Total.Value = Worksheets("SR Data").Range("AS" & rowNum).Value
End Sub
Private Sub txt4OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AZ" & rowNum) = txt4OldSpend.Value
    txt4OldRate.Value = Worksheets("SR Data").Range("BB" & rowNum).Value
    txt4Total.Value = Worksheets("SR Data").Range("BF" & rowNum).Value
End Sub
Private Sub txt5OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BM" & rowNum) = txt5OldSpend.Value
    txt5OldRate.Value = Worksheets("SR Data").Range("BO" & rowNum).Value
    txt5Total.Value = Worksheets("SR Data").Range("BS" & rowNum).Value
End Sub
Private Sub txt6OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BZ" & rowNum) = txt6OldSpend.Value
    txt6OldRate.Value = Worksheets("SR Data").Range("CB" & rowNum).Value
    txt6Total.Value = Worksheets("SR Data").Range("CF" & rowNum).Value
End Sub
Private Sub txt7OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CM" & rowNum) = txt7OldSpend.Value
    txt7OldRate.Value = Worksheets("SR Data").Range("CO" & rowNum).Value
    txt7Total.Value = Worksheets("SR Data").Range("CS" & rowNum).Value
End Sub
Private Sub txt8OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CZ" & rowNum) = txt8OldSpend.Value
    txt8OldRate.Value = Worksheets("SR Data").Range("DB" & rowNum).Value
    txt8Total.Value = Worksheets("SR Data").Range("DF" & rowNum).Value
End Sub
Private Sub txt9OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DM" & rowNum) = txt9OldSpend.Value
    txt9OldRate.Value = Worksheets("SR Data").Range("DO" & rowNum).Value
    txt9Total.Value = Worksheets("SR Data").Range("DS" & rowNum).Value
End Sub
Private Sub txt10OldSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE OLD SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DZ" & rowNum) = txt10OldSpend.Value
    txt10OldRate.Value = Worksheets("SR Data").Range("EB" & rowNum).Value
    txt10Total.Value = Worksheets("SR Data").Range("EF" & rowNum).Value
End Sub

Private Sub InsertOldSpend()
'**INSERT THE OLD RATES**'
    txt1OldSpend.Value = Format(Worksheets("SR Data").Range("K" & rowNum).Value, "Currency")
    txt2OldSpend.Value = Format(Worksheets("SR Data").Range("Z" & rowNum).Value, "Currency")
    txt3OldSpend.Value = Format(Worksheets("SR Data").Range("AM" & rowNum).Value, "Currency")
    txt4OldSpend.Value = Format(Worksheets("SR Data").Range("AZ" & rowNum).Value, "Currency")
    txt5OldSpend.Value = Format(Worksheets("SR Data").Range("BM" & rowNum).Value, "Currency")
    txt6OldSpend.Value = Format(Worksheets("SR Data").Range("BZ" & rowNum).Value, "Currency")
    txt7OldSpend.Value = Format(Worksheets("SR Data").Range("CM" & rowNum).Value, "Currency")
    txt8OldSpend.Value = Format(Worksheets("SR Data").Range("CZ" & rowNum).Value, "Currency")
    txt9OldSpend.Value = Format(Worksheets("SR Data").Range("DM" & rowNum).Value, "Currency")
    txt10OldSpend.Value = Format(Worksheets("SR Data").Range("DZ" & rowNum).Value, "Currency")
End Sub

Private Sub InsertOldRates()
'**THIS SUB ACTUALLY INSERTS THE TOTALS FOR OLD SPEND**
    txt1OldRate.Value = Worksheets("SR Data").Range("M" & rowNum).Value
    txt2OldRate.Value = Worksheets("SR Data").Range("AB" & rowNum).Value
    txt3OldRate.Value = Worksheets("SR Data").Range("AO" & rowNum).Value
    txt4OldRate.Value = Worksheets("SR Data").Range("BB" & rowNum).Value
    txt5OldRate.Value = Worksheets("SR Data").Range("BO" & rowNum).Value
    txt6OldRate.Value = Worksheets("SR Data").Range("CB" & rowNum).Value
    txt7OldRate.Value = Worksheets("SR Data").Range("CO" & rowNum).Value
    txt8OldRate.Value = Worksheets("SR Data").Range("DB" & rowNum).Value
    txt9OldRate.Value = Worksheets("SR Data").Range("DO" & rowNum).Value
    txt10OldRate.Value = Worksheets("SR Data").Range("EB" & rowNum).Value
End Sub

Private Sub txt1NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("N" & rowNum) = txt1NewSpend.Value
    txt1NewRate.Value = Worksheets("SR Data").Range("P" & rowNum).Value
    txt1Total.Value = Worksheets("SR Data").Range("Q" & rowNum).Value
End Sub
Private Sub txt2NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AC" & rowNum) = txt2NewSpend.Value
    txt2NewRate.Value = Worksheets("SR Data").Range("AE" & rowNum).Value
    txt2Total.Value = Worksheets("SR Data").Range("AF" & rowNum).Value
End Sub
Private Sub txt3NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("AP" & rowNum) = txt3NewSpend.Value
    txt3NewRate.Value = Worksheets("SR Data").Range("AR" & rowNum).Value
    txt3Total.Value = Worksheets("SR Data").Range("AS" & rowNum).Value
End Sub
Private Sub txt4NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BC" & rowNum) = txt4NewSpend.Value
    txt4NewRate.Value = Worksheets("SR Data").Range("BE" & rowNum).Value
    txt4Total.Value = Worksheets("SR Data").Range("BF" & rowNum).Value
End Sub
Private Sub txt5NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("BP" & rowNum) = txt5NewSpend.Value
    txt5NewRate.Value = Worksheets("SR Data").Range("BR" & rowNum).Value
    txt5Total.Value = Worksheets("SR Data").Range("BS" & rowNum).Value
End Sub
Private Sub txt6NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CC" & rowNum) = txt6NewSpend.Value
    txt6NewRate.Value = Worksheets("SR Data").Range("CE" & rowNum).Value
    txt6Total.Value = Worksheets("SR Data").Range("CF" & rowNum).Value
End Sub
Private Sub txt7NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("CP" & rowNum) = txt7NewSpend.Value
    txt7NewRate.Value = Worksheets("SR Data").Range("CR" & rowNum).Value
    txt7Total.Value = Worksheets("SR Data").Range("CS" & rowNum).Value
End Sub
Private Sub txt8NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DC" & rowNum) = txt8NewSpend.Value
    txt8OldRate.Value = Worksheets("SR Data").Range("DE" & rowNum).Value
    txt8Total.Value = Worksheets("SR Data").Range("DF" & rowNum).Value
End Sub
Private Sub txt9NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("DP" & rowNum) = txt9NewSpend.Value
    txt9NewRate.Value = Worksheets("SR Data").Range("DR" & rowNum).Value
    txt9Total.Value = Worksheets("SR Data").Range("DS" & rowNum).Value
End Sub
Private Sub txt10NewSpend_Change()
'**THESE ARE ACTION SUBS, IF THE USER CHANGES THE NEW SPEND, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EC" & rowNum) = txt10NewSpend.Value
    txt10NewRate.Value = Worksheets("SR Data").Range("EE" & rowNum).Value
    txt10Total.Value = Worksheets("SR Data").Range("EF" & rowNum).Value
End Sub

Private Sub InsertNewSpend()
'**THIS SUB PULLS THE NEW SPEND FROM THEIR CELLS**'
    txt1NewSpend.Value = Format(Worksheets("SR Data").Range("N" & rowNum).Value, "Currency")
    txt2NewSpend.Value = Format(Worksheets("SR Data").Range("AC" & rowNum).Value, "Currency")
    txt3NewSpend.Value = Format(Worksheets("SR Data").Range("AP" & rowNum).Value, "Currency")
    txt4NewSpend.Value = Format(Worksheets("SR Data").Range("BC" & rowNum).Value, "Currency")
    txt5NewSpend.Value = Format(Worksheets("SR Data").Range("BP" & rowNum).Value, "Currency")
    txt6NewSpend.Value = Format(Worksheets("SR Data").Range("CC" & rowNum).Value, "Currency")
    txt7NewSpend.Value = Format(Worksheets("SR Data").Range("CP" & rowNum).Value, "Currency")
    txt8NewSpend.Value = Format(Worksheets("SR Data").Range("DC" & rowNum).Value, "Currency")
    txt9NewSpend.Value = Format(Worksheets("SR Data").Range("DP" & rowNum).Value, "Currency")
    txt10NewSpend.Value = Format(Worksheets("SR Data").Range("EC" & rowNum).Value, "Currency")
End Sub

Private Sub InsertNewRates()
'**THIS SUB PULLS THE NEW RATES FROM THEIR CELLS**'
    txt1NewRate.Value = Worksheets("SR Data").Range("P" & rowNum).Value
    txt2NewRate.Value = Worksheets("SR Data").Range("AE" & rowNum).Value
    txt3NewRate.Value = Worksheets("SR Data").Range("AR" & rowNum).Value
    txt4NewRate.Value = Worksheets("SR Data").Range("BE" & rowNum).Value
    txt5NewRate.Value = Worksheets("SR Data").Range("BR" & rowNum).Value
    txt6NewRate.Value = Worksheets("SR Data").Range("CE" & rowNum).Value
    txt7NewRate.Value = Worksheets("SR Data").Range("CR" & rowNum).Value
    txt8NewRate.Value = Worksheets("SR Data").Range("DE" & rowNum).Value
    txt9NewRate.Value = Worksheets("SR Data").Range("DR" & rowNum).Value
    txt10NewRate.Value = Worksheets("SR Data").Range("EE" & rowNum).Value
End Sub

Private Sub chk1Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EH" & rowNum).Value = chk1Subtotal.Value
End Sub
Private Sub chk2Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EI" & rowNum).Value = chk2Subtotal.Value
End Sub
Private Sub chk3Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EJ" & rowNum).Value = chk3Subtotal.Value
End Sub
Private Sub chk4Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EK" & rowNum).Value = chk4Subtotal.Value
End Sub
Private Sub chk5Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EL" & rowNum).Value = chk5Subtotal.Value
End Sub
Private Sub chk6Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EM" & rowNum).Value = chk6Subtotal.Value
End Sub
Private Sub chk7Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EN" & rowNum).Value = chk7Subtotal.Value
End Sub
Private Sub chk8Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EO" & rowNum).Value = chk8Subtotal.Value
End Sub
Private Sub chk9Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EP" & rowNum).Value = chk9Subtotal.Value
End Sub
Private Sub chk10Subtotal_Change()
'**THESE ARE ACTION SUBS, IF THE USER CLICKS THE CHECKMARK OR UNCLICKS, THE CELL VALUE IN THE ASR IS AUTO UPDATED**'

    Worksheets("SR Data").Range("EQ" & rowNum).Value = chk10Subtotal.Value
End Sub

Private Sub InsertSubtotals()
'**INSERT SAVED SUTOTAL CHECKMARKS**'
    chk1Subtotal.Value = Worksheets("SR Data").Range("EH" & rowNum)
    chk2Subtotal.Value = Worksheets("SR Data").Range("EI" & rowNum).Value
    chk3Subtotal.Value = Worksheets("SR Data").Range("EJ" & rowNum)
    chk4Subtotal.Value = Worksheets("SR Data").Range("EK" & rowNum).Value
    chk5Subtotal.Value = Worksheets("SR Data").Range("EL" & rowNum)
    chk6Subtotal.Value = Worksheets("SR Data").Range("EM" & rowNum).Value
    chk7Subtotal.Value = Worksheets("SR Data").Range("EN" & rowNum)
    chk8Subtotal.Value = Worksheets("SR Data").Range("EO" & rowNum).Value
    chk9Subtotal.Value = Worksheets("SR Data").Range("EP" & rowNum)
    chk10Subtotal.Value = Worksheets("SR Data").Range("EQ" & rowNum).Value
    
End Sub
